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MM MM TT HH HH FF LLLLLLLLLL 000000 000000 RR RR cove 
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y) ha 8 ae - Greatest aa floasine routine 
if File: MTHFLOOR.MAR 


Ooo 


—PPAARARBARARARAAAAAAAAA ALARA RAR ALAA LALA EASE AREAL AAAS ESA R RASA SERS ARRAS ERAS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* ® 
® ® 
* ® 
*® ® 
® sd 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN| ACCORDANCE TER ott iit THE * 
® 

* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. ‘ 
® 

s® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. : 
*® 

;® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
® 

bd ® 
® * 


3 tARARAAAAAAAAAALALAAALALALALALALEALALAALALERARALASEAALAREAR ARAL ASAA EASA S SESS SS 
; “FACILITY: Math Library 

; ABSTRACT: 

This routine finds the largest integer less than the input 

value, i.e. it truncates toward negative infinity 

for type float. 


; ENVIRONMENT: User Mode, AST Reentrant 


Oooo 
COOOOSCSCSOSOSOSOSOOSOOSSSSSSSOOSOSOSSSOS SOOO OOOOOOSOOOOCOOOOOoOO 
SOOOCOSSOOSSOSOOSOSOSSOSSOSOSOSSOSOSOSOSOSOSOSOSOOSOSOSOSOSOOOSOSSOS 

OOCCOCOCCOOSOSSSSSOSSSooooooooooooooQoQoooooooooooo 


ODOOOCOCOoOoOooooooooooooooooooooooooooooo 
ROO NAUE WIN 9 OO NAME WIN $$ 9 OOD NAMU EWN — O OONAU EWN OOONOU Ewin 


UE ERE R EEE SE BPUWWWIIWIWIIIinononononononononony 2 3 2 3 oe 


; AUTHOR:R. Will, CREATION DATE: 1-Dec-78 
; MODIFIED BY: 
; VERSION ge 
00 ; 1-001 - Original 
00 ; 1-00 = Add ane, to the PSECT directive. JBS 22-DEC-78 
4 ; 1-003 - Put MTHSAINT code in Line. RW 26-Mar-79 
0 ; 1-004 - Correct bug for -1 < input < of: RW 11-Jul-79 
44 ; 1-005 - Add a JSB entry point. JBS 2 “ih: L-1979 
000 ; 1-006 - Change name to MIHSFLOOR. JBS 27-JUL-1979 


«SBTTL DECLARATIONS 
INCLUDE FILES: 


| EXTERNAL DECLARATIONS: 


-DSABL GBL ; Prevent undeclared 
3; symbols from te 
3; automatically global. 


: MACROS: 
EQUATED SYMBOLS: 


> OWN STORAGE: 


PWN O ODNOAOUE WP - OWOONOUE Ww 


OOOOOCOOCOCOOOOCOoOO 
SSSSSSSssessessce 
PPP RS Be A Me tt ry 


SooQoooooooooo 
~ 


7 > PSECT DECLARATIONS: 
.% .PSECT _MTHSCODE PIC, USR, CON, REL, LCL, SHR, - 


7 
80 EXE, RD, NOWRT. LONG 
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0 
} 
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1-006 MTHSFLOOR - greatest integer floating r g-SEp=19 4 94:59:98 UMTMRTL. SREATHFLOOR.MAR: 1 - 3) 
; 2 -SBTTL MTHSFLOOR = greatest integer fioating routine 
5 ; FUNCTIONAL DESCRIPTION: 
5 : This routine finds the floor by truncating, and then if the 
8 ; input value is negative and not an integer subtracting 1. 
0 0 ; CALLING SEQUENCE: 
80 $3 ; CALL result_int.wf.v = MTHSFLOOR (input.rf.r) 
090 34 ; INPUT PARAMETERS: 
00000004 208 3 : input_addr = 4 
00 98 : IMPLICIT INPUTS: 
0 99 ; 
0000 100; NONE 
000 101; 
000 1 § 3 OUTPUT PARAMETERS: 
000 103; 
0000 104; NONE 
0000 105; 
0000 1 $ 3 IMPLICIT OUTPUTS: 
9000 107; 
0000 108; NONE 
0000 109; 
8808 110 ; FUNCTION VALUE: 
000 111 ; COMPLETION CODES: 
0000 M6 ; 
443 BF : the floating value of the greatest integer 
0000 115 : SIDE EFFECTS: 
44 138 3 
44 117 ; NONE 
000 118 ; 
$333 ap 
0000 099 } 1 ENTRY MTHSFLOOR, “M<> 3 entry point 
04 +5 0 iis 1 § MOVF @input_addr(AP), RO ; RO = arg 
51 51 08 00 5 54 0006 124 EMODF RO, #0, #1, R1, RI ; R1 = fraction_part (RO) 
a Bone : 5 SUBF R1, RO 
07 14 D00r ' $ BGTR 40$ 3; if > 0, have correct answer 
51 53 BH 1 § TSTF Ri ; look at fraction part 
03 «18 1 130 BGEQ 40$ : if > 0, 0 < input < 1 and 
1 131 ; .we have the correct answer 
1 1 ¢ ; if e G, input was integer and 
! ! ? 3; we have the correct answer 
50 08 42 13 135 SUBF2 #1,R0 : subtract 1 from truncated 
tt ! $ 3 negative non-integer 
04 1 138 40$: RET 
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1-006 MTHSFL 


0 
0 
0 
00 
00 
3 
3 
3 
3 
00 
00 
00 
00 
00 
00 
3 
0 
0 
51 51 08 50 «654 00 
0 
| 


t 


a be 


I 4 
<SEP- - aT 
MEOHSE entry paint  —SeSEP=19B6 91:53:13 EMTMRTL.SREIMTHFLOOR.MaR;1 "29 2) 1- 


se -SBTTL MTHSFLOOR_R1 - JSB entry point 
; FUNCTIONAL DESCRIPTION: 

This is the JSB entry point to MTHSFLOOR. 
CALLING SEQUENCE: 

JSB result_int.wf.v = MTHSFLOOR_R1 (input.rf.v) 
INPUT PARAMETERS: 

RO contains the input value 
IMPLICIT INPUTS: 

NONE 
; OUTPUT PARAMETERS: 
NONE 
; IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


the floating value of the greatest integer 
SIDE EFFECTS: 


NONE 
MTHSFLOOR_R1:: 3: entry point 
EMODF RO, #0, #1, R1, R1 ; R1 = fraction_part (RO) 
50 51 42 SUBF R1, RO 
07 «(14 BGTR 40$ ; if > 0, have correct answer 
51 53 TSTF R1 look at fraction part 
03 «18 BGEQ 40$ if > 0, 0 < input < 1 and 


we _have the correct answer 
input was integer and 
correct answer 


we “have 


subtract 1 from truncated 


50 08 42 
negative non-integer 


SUBF2 #1,R0 


05 40$: RSB 


END 
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UCAS * SHEE ae 
MTHSFLOOR_R1 19 RG 1 


poem ew emer errr eernen 


! Psect synopsis ! 


bower cree sce ene noe at 


PSECT name Allocation PSECT No. Attributes 
- ABS. 0000880 ( 0.) 69 ( 9-3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 000002 « 44.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


Pe en ee oeen ene mm aon neste rae ea 


! Performance indicators ! 
+ 


$m ew wre enmoerecazoce eeeeoanoeneae 


Phase Page faults CPU Time asters Time 
Initialization 29 00:00: 8-08 :00:0 $8 
5 a processing 3 3: 3: 31 0:00:0 22 
aoe table sort 0 80:00; 0:61 0: 6:00: 03:46 
Pass 2 46 88:88! 38 0:00:01.18 
Symbol table output 00:00: 3-3 0:00:00.01 
Psect synopsis output Bp 238 0. 0:00:00.02 
Cross-reference output 00:00:00.0 00:00:00.00 
Assembler run totals 266 00:00:01.5 00:00:07.92 


The working Limit was 900 _ 

2069 bytes ‘ pages) of virtual memory were used to but fer the intermediate code. 

There were 10 pages of symbol table space at yecenee to hold 3 non-local and 2 Local symbols. 
195 source Ht A were read in Pass 1, produci ng 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


bee ween ee eer ee ene eee wm een weeny 


! ; Macro Library statistics : 


Macro Library name Macros defined 
“S255SDUAZ8:(SYSLIBISTARLET.MLB;2 SS” 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ON/D1I SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHFLOOR/OBJ=OBJ$:MTHFLOOR MSRC$:MTHFLOOR/UPDATE=(ENHS :MTHFLOOR) 


NT CORPORATION 
D PROPRIETARY 
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